

(defvar fuzz-factor 1.0e-6)
(defun approx-equal (x y)
  "判断两个数近视相等"
  (< (abs (- x y)) fuzz-factor)
  )

;; test
;;(approx-equal 1 1.0)






